home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / WORDKICK.ZIP / wordkick.txt
Text File  |  1996-12-29  |  2KB  |  61 lines
  1. A simple "But effective" Bad word kicker Dscript⌐
  2.  
  3. _.╖┤»`╖.╕DScript⌐  by DonDon '96-'97╕.╖┤»`╖.╕_
  4.           This Version RUNs on MIRC ver 4.7 ! 
  5.           IF ya don't have it , get it ... 
  6.        Visit my homepage at http://www.cinternet.net/~don
  7.  
  8. *** IMPORTANT NOTEs ***
  9. 1.)) Paste >> all REMOTE / EVENTS lines  << to the >> VERY END << of the Events section
  10. or it will "override" all on text lines below mine.
  11. 2.)) the aliases "dl" checks the ial(internal address list" for a users "level",
  12. it MUST be check marked in the remotes section
  13. 3.)) This script will only kick Level 49 or lower. Change each occurence of
  14. "if ($dl($nick) < 50)" tooo "if ($dl($nick) < "yourlevel")
  15.  
  16.  
  17. Paste In Remote / events >> at the VERY end !!! <<
  18.  
  19. 1:on text:*:#: {
  20.   if ($dl($nick) > 49) { halt }
  21.   %parms = $parms 
  22.   if (%WordCheck = ON) { if ($badword($token(0,32,%bad.word),%bad.word) = true) { kick $chan $nick Don't say " $+ %word $+ " ... LameBrain $dscript | halt } }
  23. }
  24. 1:on action:*:#: {
  25.   if ($dl($nick) > 49) { halt }
  26.    %parms = $parms 
  27.   if (%WordCheck = ON) { if ($badword($token(0,32,%bad.word),%bad.word) = true) { kick $chan $nick Don't say " $+ %word $+ " ... LameBrain $dscript | halt } }
  28. }
  29. 1:on notice:*:#: {
  30.   if ($dl($nick) > 49) { halt }
  31.   %parms = $parms 
  32.   if (%WordCheck = ON) { if ($badword($token(0,32,%bad.word),%bad.word) = true) { kick $chan $nick Don't say " $+ %word $+ " ... LameBrain $dscript | halt } }
  33. }
  34.  
  35.  
  36. In Aliases Paste
  37.  
  38. dl  { if ($level($address($1,0)) = $null) { return null } | return $remove($level($address($1,0)),$chr(44)) }
  39. badword { %i = 2 | :w | %word = $ [ $+ [ %i ] ] | if (%word isin %parms) { return true } | elseif (%i <= $1) { inc %i 1 | goto w } | return false }
  40. dscript { return (Dscript⌐ by DonDon) }
  41.  
  42. > --- Example Bad words --- < 
  43. Put the following line in REMOTE/Variables
  44.  
  45. %bad.word fuck shit cunt bitch goddamn $hit fuk dumbass
  46. %WordCheck on
  47.  
  48. Paste in Popups
  49.  
  50. WordKICK
  51. .Toggle:{ 
  52.   if (%WordCheck = ON) { set %wordcheck OFF  } 
  53.   else {
  54.     if (%bad.word = $null) { set %bad.word fuck shit cunt bitch goddamn dumbass }
  55.     set %wordcheck ON 
  56.   }
  57.   echo 6 -a "Bad Word Kick is %WordCheck $+ " | echo 4 -a I will kick on these words | echo 4 -a %bad.word 
  58. }
  59.  
  60.  
  61.